home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / AEMail.lha / aemail151 / files.lha / ARexx.lha / Form.aem < prev    next >
Encoding:
Text File  |  1998-03-20  |  4.1 KB  |  141 lines
  1. /* AEMail Form Processing */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. FIRST
  6.  
  7. endmsg = RESULT
  8.  
  9. IF (endmsg = 0) THEN DO
  10.     OKAY1 "No messages in Folder"
  11.     EXIT
  12.     END
  13.  
  14. OKAY2 "YES|NO" "Do You Want to Add to Address Book?"
  15. ADDTOAB = RESULT
  16. IF (ADDTOAB = 1) THEN DO
  17.     OK = 0
  18.     DO UNTIL OK = 1
  19.         GETSTRING '"Enter Group Nickname"'
  20.         grpname = RESULT
  21.         IF (grpname = "") THEN ADDTOAB = 0
  22.         IF (ADDTOAB = 0) THEN LEAVE
  23.         ADDRESS_BOOK GET grpname TYPE
  24.         addrtype = RESULT
  25.         IF (addrtype = -1) THEN DO
  26.             OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  27.             IF (RESULT = 1) THEN DO
  28.                 GETSTRING '"Enter a Group Description"'
  29.                 grpdesc = RESULT
  30.                 OK = 1
  31.                 OKAY2 "YES|NO" "Do you want to send header only?"
  32.                 IF (RESULT = 0) THEN sndho = ""
  33.                 ELSE sndho = "SHO"
  34.                 END
  35.             ELSE IF (RESULT = 2) THEN OK = 0
  36.             ELSE IF (RESULT = 0) THEN exit
  37.             END
  38.         IF (addrtype = 0) THEN DO
  39.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  40.             IF (RESULT = 1) THEN OK = 0
  41.             IF (RESULT = 0) THEN exit
  42.             END
  43.         IF (addrtype = 1) THEN OK = 1
  44.         END
  45.     END
  46.  
  47.  
  48. IF ~ SHOW("PORTS","FINALD.1") THEN
  49.     DO
  50.     ADDRESS COMMAND "Run >NIL: FinalData:FinalData"
  51.     ADDRESS COMMAND "WaitForPort FINALD.1"
  52.     IF ~ SHOW("PORTS","FINALD.1") THEN
  53.         DO
  54.         OKAY1 "Final Data Did Not Load"
  55.         EXIT
  56.         END
  57.     END
  58.  
  59. ADDRESS "FINALD.1" ScreenToFront
  60. ADDRESS "FINALD.1" Open
  61.  
  62. DO UNTIL endmsg = 0
  63.     SUBJECT
  64.     subj = RESULT
  65.     subjform = SUBSTR(subj,1,9)
  66.     subjform = UPPER(subjform)
  67.     IF(subjform = "FORM POST") THEN DO
  68.         MESSAGE READ
  69.         MESSAGE DELETE
  70.         MESSAGE SELECT
  71.         SAVE TEXT NOLF
  72.  
  73.         FORMSTRING=RESULT
  74.  
  75.         DO UNTIL FORMSTRING = ""
  76.             PARSE VAR FORMSTRING FORMLINE '&' FORMSTRING
  77.             PARSE VAR FORMLINE HEAD '=' DATA
  78.             DATA = TRANSLATE(DATA, " ", "+")
  79.             DO UNTIL DATA2 = ""
  80.                 PARSE VAR DATA DATA1 '%' DATA2
  81.                 IF DATA2 ~= "" THEN DO
  82.                     CDATA = SUBSTR(DATA2,1,2)
  83.                     DATA2 = SUBSTR(DATA2,3)
  84.                     CDATA1 = X2C(CDATA)
  85.                     DATA = DATA1 || CDATA1 || DATA2
  86.                     END
  87.                 END
  88.  
  89.             IF (HEAD = "subject") THEN DO
  90.                 DATE MDY
  91.                 dater = RESULT
  92.                 ADDRESS "FINALD.1" NEWROW
  93.                 ADDRESS "FINALD.1" NUMROWS
  94.                 ROW = RESULT
  95.                 ADDRESS "FINALD.1" GETCOLUMNPOSITION NAME 'datercvd'
  96.                 COL = RESULT
  97.                 ADDRESS "FINALD.1" SELECTCELL COL ROW
  98.                 ADDRESS "FINALD.1" INSERT dater
  99.                 END
  100.  
  101.             ELSE DO
  102.                 IF (HEAD = "homepage") then DO
  103.                     IF (DATA = "http://www.") THEN DO
  104.                         DATA = ""
  105.                         END
  106.                     END
  107.                 ADDRESS "FINALD.1" NUMROWS
  108.                 ROW = RESULT
  109.                 ADDRESS "FINALD.1" GETCOLUMNPOSITION NAME HEAD
  110.                 COL = RESULT
  111.                 ADDRESS "FINALD.1" SELECTCELL COL ROW
  112.                 ADDRESS "FINALD.1" INSERT DATA
  113.                 IF (HEAD = "email") THEN DO
  114.                     IF (DATA ~= "") THEN DO
  115.                         IF (ADDTOAB = 1) THEN DO
  116.                             IF (addrtype = -1) THEN DO
  117.                                 cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho DATA grpdesc
  118.                                 addrtype = 1
  119.                                 END
  120.                             ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname DATA
  121.                             cmd
  122.                             END
  123.                         END
  124.                     END 
  125.                         
  126.                 END
  127.             END
  128.  
  129.         END
  130.     NEXT
  131.     endmsg = RESULT
  132.     END
  133.  
  134. ADDRESS "FINALD.1" QUIT
  135. AEMAIL TO FRONT
  136. GETFILENAME '"File to Save Messages"'
  137. if RESULT = "" THEN QUIT
  138. savefile = RESULT
  139. SAVE SELECTED MESSAGES TO '"'savefile'"'
  140. MESSAGE SELECT NONE
  141.